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10230871984 93:18:42 DISKSVMSMASTER: CMOUNT . SRCICHKSM2.832;1> (1) 


MODULE CHKSM2 ( soa caat as Saa 

DENT = enti ; 
= 

BEGIN 


' 
leuteueententensxeneenentenenntenteerertertnerertetnninennntentnennetententns 
if 

's COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICE TH THE 
't INCLUSION OF THE ABOVE Spl d NOTICE. THIS SOFTWARE OR ANY OTHER 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;* emPokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


a 
® 
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1 

FACILITY: MOUNT Utility Structure Levels 1 & 2 
i ABSTRACT: 


This routine computes the block checksum over the indicated 
byte count. 


i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 24-Nov-1977 14:58 


i MODIFIED BY: 


v03-001 HH0041 Hai Huang PHP t has 
Remove REQUIRE ‘LIBD$:CVASLIB.OBJJMOUNTMSG.B32'. 


V02-000 ACG0167 Andrew C. Guldstein, 18-Apr-1980 13:38 
Previous revision history moved to MOUNT.REV 
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$062080 if: ep-1 Moil8it8 BTS biw Shas Fen chdonr scacucsm2. a 


i 39 089 | 
; § 60 1 LIBRARY ' sal) BRARY: b 1852": 
: 61 1 REQUIRE * :MOUDEF .B 
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; $3 34 } GLOBAL ROUTINE CHECKSUM2 (BUFFER, COUNT) = : 
: 65 5 1 lee ; 
; ¢ +4 1! 3 
; ef 2 } FUNCTIONAL DESCRIPTION: : 
: 69 0898 1 i This routine computes the additive block checksum over the indicated : 
;: 44 1: count. It stores the checksum at the given byte offset and returns ; 
: fi best : } a match or mismatch status. : 
oe 0603 1! : 
; 74 $e 4 1 ! CALLING SEQUENCE: 3 
; fe bob ! : CHECKSUM (ARG1, ARG2) : 
oF 0607 1 | INPUT PARAMETERS: : 
; 8678 0608 1! ARG1: address of block to checksum ; 
; 4 +984 : } ARG2: byte count of block : 
: 81 0611 ; IMPLICIT INPUTS: . 
: 83 $8 1} 

: ee bere : RE eran 

; 86 0616 1! 

: 44 pele ' sls aie 

: 89 0619 1! 

: 90 0620 1 ! ROUTINE VALUE: 

3 4 Be 1 ! 1 if checksum is correct 

Ps 0638 1 i ~s 

BRE | site epgers 

> 96 0626 1! 

3 97 0627 1 !-- 

3 98 0628 1 

3 a9 +594 BEGIN 

: 100 0630 

s 0) 0631 

2 138 +t) BUFFER : REF VECTOR C,WORDJ; 

> 104 0634 2 LOCAL 

: 105 0635 : WORD, ! running checksum 

: 196 $636 STATUS; ' return status 

: 108 0638 

; 109 63 SUM = 0; 

: 110 0640 INCR J FROM 0 TO .COUNT/2-1 DO 

: 143 bees SUM = .SUM + .BUFFERC.J); 

: 113 ek STATUS = .SUM EQL .BUFFERC.COUNT/2]: 

3; 114 0644 BUFFERC.COUNT/2) = .SUM; 

: aE Ose RETURN .STATUS; 

F 19 $09 END; ! end of routine CHECKSUM2 
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CHKSM 16-Sep-1984 01:12:45 VAX-11 Bliss-32 v4 
¥O02080 ea8epn 188 Fbil8itg | bTeblwhasfenccns 
TITLE cnene 
eIDENT \vV04-000\ 
-PSECT S$CODES,NOWRT,2 
0004 00000 ENTRY CHECKSUM2, Save R2 
§ B4 Babe CLRW 
51 08 AC C7 00004 DIVL3 #2, COUNT, R1 
50 1 4 0009 MNEGL #1, J 
5 1 iti BRB 
52 04 BC40 AO 3 1$: ADDW2 a@BUFFERCJJ, SUM 
F7 50 51 F2 00015 2$: AOBLSS Ri, J, 1$ 
50 04 00017 CLRL 
04 BC41 52 B61 Beale CMPW SUM, @BUFFERCR1] 
4 12 dh BNEQ 3$ 
0 D6 0002 INCL RO 
04 BC41 52 BO 00022 3$: MOVW SUM, @BUFFERCR1) 
04 00027 RET 
; Routine Size: 49 bytes, Routine Base: $CODE$ + 0000 
; «118 0648 1 
; 199 0649 1 END 
: 120 0650 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 40 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
. Library Statistics 
: eoouonee Symbols eeececce Pages Processing 
$ File Total Loaded Percent Mapped Time 
: -$255$DUA28 : CSYSLIBILIB.L32;1 18619 8 0 1000 00:01.9 


; COMMAND QUALIFIERS 
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-Sep- 
$ BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CHKSM2/0BJ=OBJ$:CHKSM2 MSRC$:CHKSM2/UPDATE=(ENHS$: CHKSM2) 
; Size: 40 code +_0 data bytes 
; Run "Time: 00: 9.3 . 
Elapsed Time: 0:22.4 
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; [cay Aa pag 38627 
; poneey yyeet 81 pages 
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